current_prolog_flag(argv,L),nth1(2,L,FILE), [FILE].
current_prolog_flag(argv,L),nth1(3,L,ACTOR), assert(actor(ACTOR)).
['framework/base.pl'].
['framework/experiment.pl'].
['framework/printmessages.pl'].
['framework/ca.pl'].

actor(A),findall(DI,(know(A,Y),contains(Y,DI),DI=ctxm(_,P,_,_,_),P\=dot),LDI), list_to_set(LDI,SDI), sort(SDI,SSDI),
         findall(DID,(member(DID,SSDI),testdetect(A,DID),print('detect('),print(A),print(','),printt(DID),print(').\n')),_).

actor(A),pdis(A,L),contexts(L,C),linkablepart2(A,C,RET).